home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Elements / e-count next >
Lisp/Scheme  |  1998-08-11  |  546b  |  20 lines
  1. e-count element sequence
  2.  
  3. This function is able to count the occurances of any defined element occuring within a sequence. It returns a list of integers listing occurances in the given order of the element.
  4.  
  5. (setq lis
  6.       (cfunction
  7.        (gen-noise-white 12 1.0 .24) '(0 1 2 3)))
  8. => (2 1 1 2 1 3 0 3 2 2 0 0))
  9.  
  10. (e-count '(0 1 2 3) lis)
  11. => (3 3 4 2)
  12.  
  13. (setq sym
  14.       (cfunction
  15.        (gen-noise-white 12 1.0 .24) '(a b c d e f g h i j k l)))
  16. => (i c f j d l a k j g b a)
  17.  
  18. (e-count '(a b c d e f g h i j k l) sym)
  19. => (2 1 1 1 0 1 1 0 1 2 1 1)
  20.